home *** CD-ROM | disk | FTP | other *** search
/ .net 1997 May / net 32 / NET32PC.iso / mac / NET32PPC / NET32PPC.dxr / 00405_hyperlink code.ls < prev    next >
Encoding:
Text File  |  1997-04-11  |  453 b   |  21 lines
  1. on hyperlink m, alistcast
  2.   set alist to value(string(the text of cast alistcast))
  3.   set found to 0
  4.   repeat while not (found or (alist = "[:]"))
  5.     set this to getPropAt(alist, 1)
  6.     set that to getPropAt(alist, 2)
  7.     if (this < m) and (m <= that) then
  8.       set found to 1
  9.       dotag(getAt(alist, 1))
  10.       next repeat
  11.     end if
  12.     deleteAt(alist, 1)
  13.     deleteAt(alist, 1)
  14.   end repeat
  15. end
  16.  
  17. on dotag tag
  18.   put "executing: " & tag
  19.   do(tag)
  20. end
  21.